home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
!ENCODE_DECODE
next >
Wrap
Text File
|
1997-04-05
|
240b
|
5 lines
ENCODE:procedure;parse arg t,k;a=xrange(" ","~")
k=xrange(d2c(32+k),"~")xrange(" ",d2c(31+k));return translate(t,a,k)
DECODE:procedure;parse arg t,k;a=xrange(" ","~")
k=xrange(d2c(32+k),"~")xrange(" ",d2c(31+k));return translate(t,k,a)